home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / BORUSR2.ZIP;1 / PRINT.PRG < prev    next >
Encoding:
Text File  |  1992-07-08  |  1.9 KB  |  79 lines
  1. *-------------------------------------------------------------------------------
  2. *-- PROGRAM...: PRINT.PRG
  3. *-- Notes.....: Simple program to PRINT the PRG files for the ATUSERS database
  4. *--             system ...
  5. *-------------------------------------------------------------------------------
  6. clear
  7. set talk off
  8. set stat off
  9. set proc to proc
  10. do center with 10,80,"rg+/gb","Make sure there's plenty of paper"
  11. do center with 11,80,"rg+/gb","in the printer, and that it's ready"
  12. do center with 12,80,"rg+/gb","to go. Press any key ..."
  13. set cursor off
  14. x=inkey(0)
  15. if x = 27
  16.     set cursor on
  17.     set stat on
  18.     set talk on
  19.     close all
  20.     clear
  21.     cancel
  22. endif
  23. clear
  24. do center with 10,80,"rg+/rg","*** Printing program files ***"
  25. set console off
  26. type menu.prg to print
  27. eject
  28. type borentr.prg to print
  29. eject
  30. type boredit.prg to print
  31. eject
  32. type borrep.prg to print
  33. eject
  34. type print.prg to print
  35. eject
  36. set console on
  37. if yesno(.f.,"Print PROCEDURE/CONFIG files?","This is pretty long ...","",;
  38.     "rg+/r,n/w,rg+/r")
  39.     set console off
  40.     type proc.prg to print
  41.     eject
  42.     type config.prg to print
  43.     eject
  44.     type pconfig.prg to print
  45.     eject
  46.     type setclr.prg to print
  47.     eject
  48.     type cdefault.prg to print
  49.     eject
  50.     set console on
  51. endif
  52. if yesno(.f.,"Print PICKLIST program?","This is 8 pages ...","",;
  53.     "rg+/r,n/w,rg+/r")
  54.     set console off
  55.     type picklist.prg to print
  56.     eject
  57.     set console on
  58. endif
  59. if yesno(.t.,"Print documentation?","(README.TXT),","",;
  60.     "rg+/r,n/w,rg+/r")
  61.     set console off
  62.     type readme.txt to print
  63.     eject
  64. endif
  65. set console on
  66. clear
  67. do center with 12,80,"rg+/rg","Done printing ... press any key ..."
  68. x = inkey(0)
  69. set cursor on
  70. clear
  71.  
  72. set stat on
  73. set talk on
  74. close all
  75.  
  76. *-------------------------------------------------------------------------------
  77. *-- End of Program: PRINT.PRG
  78. *-------------------------------------------------------------------------------
  79.